home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 16 / PC Actual CD 16.iso / cdactual / scripts / ircap25 / IRCAP25B.ZIP / IRcap / alias_t.ini next >
Encoding:
INI File  |  1997-08-22  |  5.6 KB  |  142 lines
  1. [aliases]
  2. n0=;
  3. n1=sombra {
  4. n2=  set %txt  $+ $$2 $+ , $+ $$2 $+ !! $+ %texto2 $+ !! | say %txt
  5. n3=  set %txt  $+ $$2 $+ , $+ $$2 $+ !! $+  $+ $$1 $+ , $+ $$2 $+ %texto2 $+  $+ $$2 $+ , $+ $$2 $+ !! $+ 15,15!! | say %txt
  6. n4=  set %txt  $+ $$2 $+ , $+ $$2 $+ !! $+ %texto2 $+ !! $+ 15,15!! | say %txt
  7. n5=  set %txt 0,0!! $+ 15,15 $+ %texto2 $+ !!!! | say %txt
  8. n6=  unset %txt | unset %texto2
  9. n7=}
  10. n8=F2 set %texto2 $$?="Texto ?" | guiacolor | sombra $$?="Color de las letras ?" $$?="Color del fondo ?"
  11. n9=;
  12. n10=lsombra set %texto  15,15i14,14i $+ $$1 $+ , $+ $$2 $$3-  14,14i15,15i1,0
  13. n11=
  14. n12=sF2 set %texto $$?="Texto ?" | guiacolor | lsombra $$?="Color de las letras ?" $$?="Color del fondo ?" %texto | say %texto
  15. n13=;
  16. n14=marco { 
  17. n15=  say  $+ $$2 $+ , $+ $$2 $+!!! $+ *3 $+ !!!!!!!!
  18. n16=  say  $+ $$2 $+ , $+ $$2 $+ !!15,15!!!! $+ *3 $+   $+ $$2 $+ , $+ $$2 $+ !!15,15!!
  19. n17=  say  $+ $$2 $+ , $+ $$2 $+ !!15,15!0,0! $+ $$1 $+ ,0 $+ *3 $+ 0,0!! $+ $$2 $+ , $+ $$2 $+ !!15,15!!
  20. n18=  say  $+ $$2 $+ , $+ $$2 $+ !!15,15!0,0!!15,0 $+ *3 $+ 0,0! $+ $$2 $+ , $+ $$2 $+ !!15,15!!
  21. n19=  say  $+ $$2 $+ , $+ $$2 $+ !!!! $+ *3 $+ !!!!15,15!!
  22. n20=  say 0,0!15,15!!! $+ *3 $+ 15,15!!!!!!
  23. n21=}
  24. n22=sF3 set %texto2 $$?="Texto ?" | guiacolor | marco $$?="Color de las letras ?" $$?="Color del fondo ?" %texto2 | unset %texto2
  25. n23=;
  26. n24=rr {
  27. n25=  set %tx *1
  28. n26=  %tx = $replace(%tx,a,π)
  29. n27=  %tx = $replace(%tx,b,▀)
  30. n28=  %tx = $replace(%tx,c,ó)
  31. n29=  %tx = $replace(%tx,d,╨)
  32. n30=  %tx = $replace(%tx,e,Ω)
  33. n31=  %tx = $replace(%tx,f,F)
  34. n32=  %tx = $replace(%tx,g,G)
  35. n33=  %tx = $replace(%tx,h,H)
  36. n34=  %tx = $replace(%tx,i,ε)
  37. n35=  %tx = $replace(%tx,j,J)
  38. n36=  %tx = $replace(%tx,]{,K)
  39. n37=  %tx = $replace(%tx,l,ú)
  40. n38=  %tx = $replace(%tx,m,M)
  41. n39=  %tx = $replace(%tx,n,±)
  42. n40=  %tx = $replace(%tx,o,°)
  43. n41=  %tx = $replace(%tx,p, ■)
  44. n42=  %tx = $replace(%tx,q,Q)
  45. n43=  %tx = $replace(%tx,r,«)
  46. n44=  %tx = $replace(%tx,s,º)
  47. n45=  %tx = $replace(%tx,t,T)
  48. n46=  %tx = $replace(%tx,u,╡)
  49. n47=  %tx = $replace(%tx,v,V)
  50. n48=  %tx = $replace(%tx,w,W)
  51. n49=  %tx = $replace(%tx,x,╫)
  52. n50=  %tx = $replace(%tx,y,Ñ)
  53. n51=  %tx = $replace(%tx,z,Z)
  54. n52=  dice
  55. n53=}
  56. n54=;
  57. n55=qq {
  58. n56=  set %tx *1
  59. n57=  set %tx $replace(%tx,a,4a) 
  60. n58=  set %tx $replace(%tx,b,3B)
  61. n59=  set %tx $replace(%tx,c,6C)
  62. n60=  set %tx $replace(%tx,d,7D)
  63. n61=  set %tx $replace(%tx,e,4e)
  64. n62=  set %tx $replace(%tx,f,12F)
  65. n63=  set %tx $replace(%tx,g,13G)
  66. n64=  set %tx $replace(%tx,h,6H) 
  67. n65=  set %tx $replace(%tx,i,4i)
  68. n66=  set %tx $replace(%tx,j,J)
  69. n67=  set %tx $replace(%tx,k,3K)
  70. n68=  set %tx $replace(%tx,l,L) 
  71. n69=  set %tx $replace(%tx,m,4M)
  72. n70=  set %tx $replace(%tx,n,6N)
  73. n71=  set %tx $replace(%tx,o,4o)
  74. n72=  set %tx $replace(%tx,p,12P) 
  75. n73=  set %tx $replace(%tx,q,Q)
  76. n74=  set %tx $replace(%tx,r,13R)
  77. n75=  set %tx $replace(%tx,s,7S)
  78. n76=  set %tx $replace(%tx,t,T) 
  79. n77=  set %tx $replace(%tx,u,4u)
  80. n78=  set %tx $replace(%tx,v,V)
  81. n79=  set %tx $replace(%tx,w,12W)
  82. n80=  set %tx $replace(%tx,x,7X) 
  83. n81=  set %tx $replace(%tx,y,Y)
  84. n82=  set %tx $replace(%tx,z,6z)
  85. n83=  set %tx $replace(%tx,?,12?)
  86. n84=  say %tx | unset %tx
  87. n85=}
  88. n86=
  89. n87=;
  90. n88=dice {
  91. n89=  if (%ESle == 98 ) goto L1
  92. n90=  if (%ESle == 99 ) { mcolor %tx | set %tx %ESne $+ %tx | goto L1 }
  93. n91=  set %tx  $+ %ESle $+ , $+ %ESfo $+ %ESne $+ %tx
  94. n92=  :L1
  95. n93=  say %tx | unset %tx
  96. n94=}
  97. n95=;
  98. n96=mcolor {
  99. n97=  set %txt *1 | unset %t | set %cl $len(%txt) | set %le 1
  100. n98=  :L1
  101. n99=  if ( $mid(%txt,%le,1) == $chr(32) ) { set %t %t $+ $chr(160) | goto L2 }
  102. n100=  set %t %t $+  $+ $rand(1,14) $+ $mid(%txt,%le,1)
  103. n101=  :L2
  104. n102=  inc %le 1 | if ( %le <= %cl ) goto L1  
  105. n103=  set %tx $replace(%t,8,1) | unset %t | unset %txt | unset %cl | unset %le
  106. n104=}
  107. n105=;
  108. n106=cc {
  109. n107=  mcolor *1 | say %tx | unset %tx
  110. n108=}
  111. n109=
  112. n110=elicol guiacolor | set %ESle $$?="Color de las letras ?" | set %ESfo $$?="Color del fondo ?"
  113. n111=;
  114. n112=ayualias {
  115. n113=  window -c @Ayuda_Alias/teclado
  116. n114=  window @Ayuda_Alias/teclado 0 0 300 400
  117. n115=  
  118. n116=  lsombra 0 12 Aliases | aline @Ayuda_Alias/teclado %texto
  119. n117=  aline @Ayuda_Alias/teclado 12/w (nick) 1whois nick nick
  120. n118=  aline @Ayuda_Alias/teclado 12/ww (nick) 1whowas nick
  121. n119=  aline @Ayuda_Alias/teclado 12/j (canal) 1join #canal
  122. n120=  aline @Ayuda_Alias/teclado 12/n (canal) 1names #canal
  123. n121=  aline @Ayuda_Alias/teclado 12/q (nick) 1query nick
  124. n122=  aline @Ayuda_Alias/teclado 12/ascii 1lista c≤digos ascii
  125. n123=  aline @Ayuda_Alias/teclado 12/rr (texto) 1úΩT«π ANºεε
  126. n124=  aline @Ayuda_Alias/teclado 12/qq (texto) 1L4eT13R4a 4a12W4e7S4o4M4e
  127. n125=  aline @Ayuda_Alias/teclado 12/cc (texto) 6l1e12t4r13aá10m5u14l2t4i6c14o14l1o1r
  128. n126=  aline @Ayuda_Alias/teclado -
  129. n127=  
  130. n128=  lsombra 0 12 Teclado | aline @Ayuda_Alias/teclado %texto
  131. n129=  aline @Ayuda_Alias/teclado 12F3 1setup del IRcap
  132. n130=  aline @Ayuda_Alias/teclado 12F5, F6 1floods
  133. n131=  aline @Ayuda_Alias/teclado 12F7 1parar floods
  134. n132=  aline @Ayuda_Alias/teclado 12F8 1query ·ltimo nick en who o whois
  135. n133=  aline @Ayuda_Alias/teclado 12F10 1activa protecciones
  136. n134=  aline @Ayuda_Alias/teclado 12F11 / F12 1anula/pone ignore total
  137. n135=  aline @Ayuda_Alias/teclado 12ctrl + F12 1·ltimo fichero recibido
  138. n136=  aline @Ayuda_Alias/teclado 12ctrl + F9 1buscar [ portapapeles ]
  139. n137=  aline @Ayuda_Alias/teclado 12F2, shift+F2, shift+F3 1marcos
  140. n138=  
  141. n139=}
  142.